home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / maximo_1.arc / TXT.ARC / INV.TXT < prev    next >
Text File  |  1991-08-20  |  4KB  |  157 lines
  1. ;
  2. ;  INV -- inventory (c) 1990 Chris Butler
  3. ;
  4.  
  5. ;VIDEO M
  6.   set allsolns off
  7.   goto top
  8. all:
  9.   set allsolns on
  10. top:
  11.  
  12. ;mouse on
  13. global boxllx 0 ; mod 8 = 0
  14. global boxlly 0
  15. global boxw  488
  16. global boxh  115
  17. global boxtitle "Max with Ed the engineer"
  18. set h 17    ; key height
  19. set keycolor 14 ; keytop color in convbox = 14 (yellow)
  20. set txtboxclr 14; 
  21. cload max.clp 30 1 0      ; max's face
  22. tran on 15
  23. cload cover.clp 32 0 1 
  24. merge toursubs.txt
  25.  
  26. iris:
  27. set boxtitle "Max with Irv in Inventory"
  28. set entrypoint "entry_9"
  29. pload palette1.pcx 1
  30. palette 1
  31. pfree 1
  32. cload inv.clp 31 1 0
  33. call steps.txt invntry
  34.  
  35. label301:
  36. newbgrnd "inv2a.pcx" 80 40 1 0 200 5
  37. ;mouse on
  38. set str1 "Hi, Irv. What's new in the parts business?"
  39. set str2 ""
  40. say 1 @str1 @str2
  41. waitkey 50
  42. label1a:
  43. getcmd
  44. if @0<>"backup" label302
  45. noise 500 200 50
  46. waitkey 100
  47. goto label1a
  48.  
  49. label302:
  50. set str1 "Well, Max, we just finished an inventory using MAXIMO Series 3 "
  51. set str2 "cycle counting and we're 96% accurate."
  52. say 0 @str1 @str2
  53. waitkey 50
  54. getcmd
  55. if @0=="backup" label301
  56.  
  57. label303:
  58. set str1 "That's great -- we couldn't even find our parts last year. Listen"
  59. set str2 " Irv, we need some replacement parts for an Eclipse cartoner."
  60. say 1 @str1 @str2
  61. waitkey 50
  62. getcmd
  63. if @0=="backup" label302
  64.  
  65. label304:
  66. set str1 "OK. Let's ask Maximo what we've got."
  67. set str2 ""
  68. say 0 @str1 @str2
  69. waitkey 50
  70. getcmd
  71. if @0=="backup" label303
  72.  
  73. label305:
  74. newbgrnd "18.pcx" 80,100 0 0 100 9
  75. set str1 "Looks like there's none left. Maybe"
  76. set str2 " we can cannibalize another piece of equipment ... "
  77. say 0 @str1 @str2
  78. waitkey 50
  79. getcmd
  80. if @0=="backup" label304
  81.  
  82. label306:
  83. newbgrnd "19.pcx" 80,0 0 0 100 9
  84. set str1 "Well, that's all production machinery. We can't take any of those."
  85. set str2 " Anyway, MAXIMO says they're obsolete. Maybe we have a substitute?"
  86. say 0 @str1 @str2
  87. waitkey 50
  88. getcmd
  89. if @0=="backup" label305
  90.  
  91. label307:
  92. newbgrnd "20.pcx" 80,100 0 0 100 9
  93. set str1 "OK. Use the 217215-A as a substitute. Your work order will drop that"
  94. set str2 " bearing's `current balance' to its automatic reorder point ..."
  95. say 0 @str1 @str2
  96. waitkey 50
  97. getcmd
  98. if @0=="backup" label306
  99.  
  100. label308:
  101. set str1 " ... but MAXIMO will automatically order 2 new pairs on a parts "
  102. set str2 "requisition after it gets Alice's approval down in Accounting!"
  103. say 0 @str1 @str2
  104. waitkey 50
  105. getcmd
  106. if @0=="backup" label307
  107.  
  108. label309:
  109. newbgrnd "inv2a.pcx" 80 40 1 0 50 9
  110. set str1 "Irv, you can really put MAXIMO through its paces! You need a raise."
  111. set str2 ""
  112. say 1 @str1 @str2
  113. waitkey 50
  114. getcmd
  115. if @0=="backup" label308
  116.  
  117. label310:
  118. set str1 "I agree! You know MAXIMO helped me reduce my inventory line items by "
  119. set str2 "20%, saving us $115,000 in spares and carrying costs this year ..."
  120. say 0 @str1 @str2
  121. waitkey 50
  122. getcmd
  123. if @0=="backup" label309
  124.  
  125. label311:
  126. set str1 " ... and MAXIMO's new bar code interface lets us check inventory in "
  127. set str2 "and out of the system in a flash. Mechanics really appreciate that."
  128. say 0 @str1 @str2
  129. waitkey 50
  130. getcmd
  131. if @0=="backup" label310
  132.  
  133. label312:
  134. set str1 "Good stuff, Irv. Well, I'm going down to Purchasing and Accounting to"
  135. set str2 " talk about next year's budget."
  136. say 1 @str1 @str2
  137. waitkey 50
  138. getcmd
  139. if @0=="backup" label311
  140.  
  141. label313:
  142. set str1 "Bye, Max."
  143. set str2 ""
  144. say 0 @str1 @str2
  145. waitkey 50
  146. getcmd
  147. if @0=="backup" label312
  148.  
  149. ;mouse off
  150.  
  151. if @allsolns==on linkit
  152.   link master.txt entry_9
  153. linkit:
  154.   link purch.txt all
  155.  
  156. ; SUBR INV
  157.